perm filename MET19.LSP[TIM,LSP] blob sn#715209 filedate 1983-06-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Benchmark to print to a file.
C00003 ENDMK
CāŠ—;
;;; Benchmark to print to a file.
(declare 
 (fasload meter)
 (load "metint.lsp")
 (setq meter:count-only ()))
(declare 
 (setq local-objects-of-interest 
       '((open "Open")(read "Read")(close "Close"))))
;;; The Maclisp Code


;;; Benchmark to read from a file.

(declare (fixsw t))

(meter:meter fread
	     (meter-funs #.(all-objs)
			 (defun fread ()
				(let ((f (open "fprint.tst" '(in ascii))))
				     (read f)
				     (close f)))))